home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / EXAMPLE_PROGRAMS / example20.AMOS / example20.amosSourceCode
AMOS Source Code  |  1992-03-06  |  2KB  |  88 lines
  1. '================= 
  2. Rem EXAMPLE20.Amos 
  3. '================= 
  4.  
  5. Rem examples of X MOUSE Y MOUSE and LIMIT MOUSE
  6.  
  7.  
  8. Screen Open 0,640,250,8,Hires
  9. Curs Off : Paper 0 : Cls 0
  10.  
  11. Rem call the two procedures then go back to the editor 
  12. '----------------------------------------------------- 
  13. _MADMOUSE
  14.  
  15. _PARAMOUSE
  16.  
  17. Edit 
  18.  
  19.  
  20. Rem procedures start here
  21. '------------------------
  22. Procedure _MADMOUSE
  23. Rem A bit of fun with xmouse and ymouse
  24. Pen 3
  25. Locate 0,10 : Centre "OH NO!  LOOKS LIKE YOU HAVE LOST CONTROL OF YOUR MOUSE."
  26. Pen 2
  27. '
  28. '
  29. MX=260 : MY=100
  30. '
  31. Rem loop 400 times 
  32. '----------------- 
  33. For A=1 To 400
  34. Rem give + and - rnd movement to each axis 
  35. '----------------------------------------- 
  36. MX=MX+Rnd(4) : MY=MY+Rnd(4)
  37. MX=MX-Rnd(4) : MY=MY-Rnd(4)
  38. Rem place the pointer in its new position
  39. '----------------------------------------
  40. X Mouse=MX : Y Mouse=MY
  41. Wait Vbl 
  42. Rem print the x,y coordinates of the mouse 
  43. '----------------------------------------- 
  44. Locate 30,12 : Print "X MOUSE=";X Mouse;"   "
  45. Locate 30,14 : Print "Y MOUSE=";Y Mouse;"   "
  46. Next A
  47.  
  48.  
  49. Rem now smooth moves 
  50. Rem start the pointer at top left edge of screen 
  51. '------------------------------------------------
  52. X Mouse=112 : Y Mouse=0
  53. Rem four simple for next moves moves the mouse a pixel at a time 
  54. '--------------------------------------------------------------- 
  55. For A=0 To 120 : X Mouse=X Mouse+1 : Y Mouse=Y Mouse+1 : Wait Vbl : Next A
  56. For A=0 To 120 : X Mouse=X Mouse-1 : Y Mouse=Y Mouse+1 : Wait Vbl : Next A
  57. For A=0 To 120 : X Mouse=X Mouse+1 : Y Mouse=Y Mouse-1 : Wait Vbl : Next A
  58. For A=0 To 120 : X Mouse=X Mouse-1 : Y Mouse=Y Mouse-1 : Wait Vbl : Next A
  59. End Proc
  60.  
  61.  
  62. Procedure _PARAMOUSE
  63. Change Mouse 3
  64. Paper 2 : Pen 0 : Ink 0 : Cls 2
  65.  
  66. Rem draw a box 
  67. '------------- 
  68. Box 105,110 To 400,160
  69. Locate 16,16 : Print "A PARALYSED MOUSE TRY TO MOVE IT"
  70.  
  71. Rem freeze the mouse by limiting both axis to same coordinate
  72. '------------------------------------------------------------- 
  73. Limit Mouse 272,190 To 272,190
  74. Wait 400
  75. Locate 14,16 : Print "YOU ARE NOW A PRISONER OF THIS BOX"
  76. Change Mouse 2
  77. '
  78. Rem limit inside box, note different coords to box these are hardware coords 
  79. '----------------------------------------------------------------------------
  80. Limit Mouse 180,160 To 328,210
  81. Wait 400
  82. Rem RELEASE THE MOUSE BY Limit Mouse WITH NO COORDS
  83. '--------------------------------------------------
  84. Limit Mouse 
  85. Change Mouse 1
  86. Locate 26,18 : Print "FREEDOM!"
  87. Wait 200
  88. End Proc